home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 106 - Proboard KEY Floppy - Must be in Drive 1.dsk / STAR.TREK.PRO5 / STAR.LOGON.S < prev    next >
Text File  |  1989-08-03  |  2KB  |  79 lines
  1.  
  2. ; STAR TREK Conversion by Ken Rogers
  3.  
  4. ; Tested and supported on ProBOARD @ 805-239-4292
  5.  
  6. ; Version 1.5
  7.  
  8.  public start
  9.  public resign
  10.  public termin
  11.  
  12.  free:kill"h:var":store"h:var":clear:recall"h:var"
  13.  k3=0:g5=0:e6=0
  14.  
  15. Start
  16.  on nocar goto termin
  17.  dx$="a3:"
  18.  xx$=rnd$:z$="                         ":pt$="*************************"
  19.  tr$=pt$+pt$+pt$+pt$+pt$+pt$+pt$+left$(pt$,17)
  20.  for i=10 to 17:nibble(i)=10:next
  21.  tr=(random(10)*2+20):xx$=rnd$:d0=100:e=3000:e0=e
  22.  xr=(clock(2)-clock(1))/60:xr$=right$("0"+str$(x),2)
  23.  p=10:p0=p:s9=200:s=0:b9=0:kt=0:x$="":x0$="is "
  24.  q1=random(8):xx$=rnd$
  25.  q2=random(8):xx$=rnd$
  26.  s1=random(8):xx$=rnd$
  27.  s2=random(8):xx$=rnd$
  28.  print chr$(12):setint(1):copy dx$+"Star.Com":setint("")
  29.  print\\\chr$(32,17)"Please Stand By For Starfleet Orders Captain."
  30.  
  31. Klingons
  32.  for i=0 to 7:for j=1to8:kg=0:r1=random(100):xx$=rnd$
  33.  if r1 > 98 kg=3:kt=kt+3:goto bases
  34.  if r1 > 95 kg=2:kt=kt+2:goto bases
  35.  if r1 > 80 kg=1:kt=kt+1
  36.  
  37. Bases
  38.  b3=0:if random(100)>96 b3=1:b9=b9+1:xx$=rnd$
  39.  byte(8*i+j)=kg*100+b3*10+random(8):next:next:if kt>9 t9=kt+1
  40.  if b9<>0 goto orders
  41.  if byte(8*i+j)<200 byte(8*i+j)=byte(8*i+j)+100:k9=k9+1
  42.  b9=1:byte(8*i+j)=byte(8*i+j)+10:q1=random(8):q2=random(8)
  43.  
  44. Random
  45.  q1=random(8):xx$=rnd$
  46.  q2=random(8):xx$=rnd$
  47.  
  48. Orders
  49.  k7=kt:ifb9<>1 x$="s":x0$="are "
  50.  print \\\"Your orders are as follows:"
  51.  print\"    Destroy the "kt" Klingon warships which have invaded"
  52.  print"    the galaxy before they can attack Federation Headquarters"
  53.  print"    on stardate "tr""xr$". This gives you "xr$" days.   There "x0$
  54.  print"    "b9" starbase"x$" in the galaxy for resupplying your ship."
  55.  input @2 \"Hit return to continue";i$
  56.  link dx$+"star","enter.quad"
  57.  
  58. Resign
  59.  on nocar goto termin
  60.  clear:recall"h:var":gosub rd.user:link "a:main.seg","fromsys"
  61.  
  62. Termin
  63.  clear:recall"h:var":gosub rd.user:link "a:main.seg","term1"
  64.  
  65. Rd.user
  66.  print\"ReReading Users Data..."\
  67.  open #1,"b:users"
  68.  position #1,128,un
  69.  input #1,d1$,d2$\d3$\d4$,d5$
  70.  position #1,128,un,70
  71.  read #1,ram,58
  72.  lc$=mid$(" "+when$,2)
  73.  close #1
  74.  b=((nibble(5)*10)-byte(7))*60
  75.  clock(2)=b:return
  76.  
  77. ; EOF
  78.  
  79.